Split it up into chunks

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

'ning,
Not sure if the below will help - I had a similar problem generating IBANs for GB and IT format numbers, so it may work with German IBANs as well.

Pass the too-long-number as a string along with the divisor (97) and it should give you the answer.

Function IsValidIBAN_GetModulus(strNumberString As String,lngDivisor As Long) As Long
Dim strTemp As String
Dim lngMod As Long
Dim intChunkLength As Integer

' Determine the size of the chunks to handle
intChunkLength = Len(lngDivisor & "") + 1

' Walk the mod through the big number
strTemp = strNumberString

Do Until Len(strTemp) = 0
lngMod = Clng(lngMod & (Mid(strTemp, 1, intChunkLength))) Mod lngDivisor
strTemp = Mid(strTemp, intChunkLength + 1)
Loop

' Return the result
IsValidIBAN_GetModulus=lngMod

End Function

Feedback response number WEBB9GACQ3 created by ~Mark Froboosimangon on 02/13/2014